PC Gamer (Italian) 31/PC Gamer IT CD 31 2-2.iso/utility/MIDWV221/MidWavi.Exe/0/RCDATA/TFORM4/TFORM4.txt

Text File | 1998-04-08 | 13KB | 595 lines

object Form4: TForm4
  Left = 144
  Top = 94
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MidWavi  AVI-MID-WAV Player'
  ClientHeight = 367
  ClientWidth = 503
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel5: TBevel
    Left = 16
    Top = 8
    Width = 313
    Height = 241
  end
  object Bevel3: TBevel
    Left = 344
    Top = 8
    Width = 145
    Height = 351
  end
  object Label3: TLabel
    Left = 376
    Top = 216
    Width = 41
    Height = 26
    Alignment = taRightJustify
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -27
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 418
    Top = 216
    Width = 41
    Height = 26
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -27
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Bevel2: TBevel
    Left = 352
    Top = 214
    Width = 129
    Height = 35
  end
  object Label1: TLabel
    Left = 24
    Top = 280
    Width = 297
    Height = 21
    Alignment = taCenter
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Bevel4: TBevel
    Left = 16
    Top = 274
    Width = 313
    Height = 33
  end
  object Label2: TLabel
    Left = 354
    Top = 289
    Width = 126
    Height = 18
    Alignment = taCenter
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 354
    Top = 303
    Width = 126
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Bevel7: TBevel
    Left = 352
    Top = 176
    Width = 129
    Height = 25
  end
  object Label6: TLabel
    Left = 360
    Top = 181
    Width = 113
    Height = 14
    Alignment = taCenter
    AutoSize = False
  end
  object Bevel8: TBevel
    Left = 352
    Top = 144
    Width = 129
    Height = 25
  end
  object Label7: TLabel
    Left = 360
    Top = 150
    Width = 113
    Height = 13
    Alignment = taCenter
    AutoSize = False
  end
  object Bevel1: TBevel
    Left = 352
    Top = 286
    Width = 129
    Height = 36
  end
  object Gauge1: TGauge
    Left = 352
    Top = 255
    Width = 129
    Height = 25
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ForeColor = clYellow
    BackColor = clSilver
    ParentFont = False
    Progress = 0
  end
  object Panel1: TPanel
    Left = 23
    Top = 13
    Width = 300
    Height = 230
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clBlack
    TabOrder = 8
    Visible = False
    OnMouseDown = Panel1MouseDown
  end
  object ListBox1: TRzCheckList
    Left = 32
    Top = 16
    Width = 281
    Height = 177
    Hint = 'Double Click or hit ENTER to play a hi-lighted file'
    AllowGrayed = False
    OnChanging = ListBox1Changing
    Color = clBtnFace
    ItemHeight = 16
    TabOrder = 29
    OnClick = ListBox1Click
    OnDblClick = ListBox1DblClick
    OnKeyDown = ListBox1KeyDown
    OnKeyPress = ListBox1KeyPress
    OnMouseDown = ListBox1MouseDown
  end
  object RadioGroup2: TRadioGroup
    Left = 16
    Top = 310
    Width = 135
    Height = 50
    TabOrder = 13
  end
  object Button12: TButton
    Left = 21
    Top = 205
    Width = 113
    Height = 27
    Hint = 'Choose which files (up to 600 approx) you wish to play'
    Caption = 'Select &AVI-MID-WAV'
    TabOrder = 1
    OnClick = Button12Click
  end
  object Button5: TButton
    Left = 424
    Top = 48
    Width = 57
    Height = 23
    Hint = 'Go to previous file selected'
    Caption = 'Pre&vious'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button1: TButton
    Left = 352
    Top = 16
    Width = 56
    Height = 23
    Hint = 'Play starting from first selection '
    Caption = '&Play'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 352
    Top = 80
    Width = 129
    Height = 23
    Hint = 'Stop but retain selection(s)'
    Caption = '&Stop'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 352
    Top = 48
    Width = 56
    Height = 23
    Hint = 'Go to next file selected'
    Caption = '&Next'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button3: TButton
    Left = 424
    Top = 16
    Width = 57
    Height = 23
    Hint = 'Click to Pause, click again to resume playing'
    Caption = 'Pa&use'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = Button3Click
  end
  object TrackBar1: TTrackBar
    Left = 345
    Top = 256
    Width = 143
    Height = 23
    Enabled = False
    Orientation = trHorizontal
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 6
    TickMarks = tmBottomRight
    TickStyle = tsManual
    Visible = False
  end
  object Button7: TButton
    Left = 352
    Top = 112
    Width = 128
    Height = 23
    Hint = 'Cancel all selections and return to CD player'
    Caption = '&Return to CD Player'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = Button7Click
  end
  object RadioButton1: TRadioButton
    Left = 24
    Top = 323
    Width = 121
    Height = 17
    Hint = 'Play AVI at original size'
    Caption = 'Allo&w original AVI size'
    TabOrder = 9
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 24
    Top = 340
    Width = 105
    Height = 17
    Hint = 'Restrict AVI to a set size'
    Caption = 'Resize AV&I to fit'
    Checked = True
    TabOrder = 10
    TabStop = True
    OnClick = RadioButton2Click
  end
  object MediaPlayer1: TMediaPlayer
    Left = 24
    Top = 368
    Width = 253
    Height = 20
    EnabledButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btEject]
    Visible = False
    TabOrder = 11
    OnNotify = MediaPlayer1Notify
  end
  object RadioGroup1: TRadioGroup
    Left = 224
    Top = 310
    Width = 105
    Height = 50
    Hint = 'Elapsed = amount played - Remaining = amount left to play'
    Items.Strings = (
      'Elapse&d time'
      'Re&maining time')
    TabOrder = 12
    OnClick = RadioGroup1Click
  end
  object Button8: TButton
    Left = 223
    Top = 253
    Width = 25
    Height = 18
    Caption = '-'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 14
    OnClick = Button8Click
  end
  object Button9: TButton
    Left = 248
    Top = 253
    Width = 25
    Height = 18
    Caption = '+'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 15
    OnClick = Button9Click
  end
  object Button10: TButton
    Left = 17
    Top = 253
    Width = 44
    Height = 18
    Caption = 'Normal'
    TabOrder = 16
    OnClick = Button10Click
  end
  object Button11: TButton
    Left = 63
    Top = 253
    Width = 44
    Height = 18
    Hint = 'Control look and size of filename details etc'
    Caption = 'Bold'
    TabOrder = 17
    OnClick = Button11Click
  end
  object Button13: TButton
    Left = 108
    Top = 253
    Width = 44
    Height = 18
    Caption = 'Default'
    TabOrder = 18
    OnClick = Button13Click
  end
  object Button14: TButton
    Left = 161
    Top = 253
    Width = 27
    Height = 18
    Caption = 'Min'
    TabOrder = 19
    OnClick = Button14Click
  end
  object Button15: TButton
    Left = 188
    Top = 253
    Width = 27
    Height = 18
    Caption = 'Max'
    TabOrder = 20
    OnClick = Button15Click
  end
  object BitBtn1: TBitBtn
    Left = 422
    Top = 328
    Width = 59
    Height = 27
    Caption = 'E&xit'
    TabOrder = 21
    OnClick = BitBtn1Click
    Kind = bkClose
  end
  object Button6: TButton
    Left = 250
    Top = 205
    Width = 74
    Height = 27
    Caption = 'Sear&ch Drive'
    TabOrder = 22
    OnClick = Button6Click
  end
  object ComboBox1: TComboBox
    Left = 197
    Top = 210
    Width = 48
    Height = 21
    Style = csDropDownList
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 23
    OnChange = ComboBox1Change
    OnExit = ComboBox1Exit
  end
  object DriveComboBox1: TDriveComboBox
    Left = 137
    Top = 212
    Width = 57
    Height = 19
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 24
    OnChange = DriveComboBox1Change
  end
  object CheckBox1: TCheckBox
    Left = 157
    Top = 315
    Width = 65
    Height = 17
    Hint = 'Automatically play one track after the other'
    Caption = 'Auto Pla&y'
    TabOrder = 25
    OnClick = CheckBox1Click
  end
  object Button16: TButton
    Left = 352
    Top = 328
    Width = 59
    Height = 27
    Hint = 'Select and display Graphic files'
    Caption = '&Graphics'
    TabOrder = 26
    OnClick = Button16Click
  end
  object Animate1: TAnimate
    Left = 144
    Top = 96
    Width = 81
    Height = 73
    Hint = 'Hit Esc to abort search'
    Active = False
    ParentShowHint = False
    ShowHint = True
    Visible = False
  end
  object RzColorComboBox1: TRzColorComboBox
    Left = 286
    Top = 250
    Width = 43
    Height = 22
    Hint = 'Change Font colour - Right click to set custom Font colour'
    About = aiRaizeComponents
    DefaultColor = clBlue
    SelectedColor = clBlue
    ShowSysColors = False
    TabOrder = 27
    OnChange = RzColorComboBox1Change
    OnCloseUp = RzColorComboBox1CloseUp
  end
  object Button17: TButton
    Left = 158
    Top = 340
    Width = 62
    Height = 20
    Hint = 'To filter file types from selected list'
    Caption = 'Su&b Select'
    TabOrder = 30
    OnClick = Button17Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 208
    Top = 368
  end
  object MainMenu1: TMainMenu
    Left = 176
    Top = 368
    object Files1: TMenuItem
      Caption = '&File'
      object ReturntoCDPlayer1: TMenuItem
        Caption = '&Return to CD Player'
        OnClick = ReturntoCDPlayer1Click
      end
      object DisplayGraphicFiles1: TMenuItem
        Caption = 'Display &Graphic Files'
        OnClick = DisplayGraphicFiles1Click
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      object SystemInfo1: TMenuItem
        Caption = 'S&ystem Status'
        OnClick = SystemInfo1Click
      end
      object HideToolTips2: TMenuItem
        Caption = 'Tool Tips O&ff'
        OnClick = HideToolTips2Click
      end
      object ToolTIpsOn2: TMenuItem
        Caption = 'Tool T&Ips On'
        OnClick = ToolTIpsOn2Click
      end
      object Defaultallsettings1: TMenuItem
        Caption = '&Default all settings'
        OnClick = Defaultallsettings1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Content1: TMenuItem
        Caption = '&Content'
        OnClick = Content1Click
      end
      object KeywordSearch1: TMenuItem
        Caption = '&Keyword Search'
        OnClick = KeywordSearch1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Options = [ofHideReadOnly, ofAllowMultiSelect]
    Left = 240
    Top = 368
  end
end